home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / GoldED / Add-Ons / envGDE13 / Install < prev    next >
Text File  |  1999-07-06  |  5KB  |  200 lines
  1. ; $VER: 1.0 All rights reserved.
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. (if (exists "GOLDED:" (NOREQ))
  7.  
  8.     (
  9.         (set vernum (getversion "golded:golded"))
  10.  
  11.         (set ver (/ vernum 65536))
  12.         (set rev (- vernum (* ver 65536)))
  13.  
  14.         (set version (+ (* 10 ver) rev))
  15.  
  16.         (if (< version 47)
  17.  
  18.             (
  19.                 (message "\nSorry, GoldED 4.7.0 or better required")
  20.  
  21.                 (exit (quiet))
  22.             )
  23.         )
  24.  
  25.         (message (cat "\n"
  26.  
  27.             "                                            \n"
  28.             "AmigaGuide Publishing Extensions            \n"
  29.             "                                            \n"
  30.             "©1997 Dietmar Eilert                        \n"
  31.             "      All Rights Reserved.                  \n"
  32.             "                                            \n"
  33.             "      E-Mail: dietmar@tomate.tng.oche.de    \n"
  34.             "                                            \n"
  35.             "GoldED Release 4.7.0+ required.             \n"
  36.         ))
  37.  
  38.         (if (not (exists "golded:syntax"))
  39.  
  40.             (makedir "golded:syntax")
  41.         )
  42.  
  43.         (copylib
  44.  
  45.             (prompt "Install syntax parser ?")
  46.             (source "syntax/warpGUIDE.parser")
  47.             (dest   "golded:syntax")
  48.             (confirm)
  49.             (help @copylib-help)
  50.         )
  51.  
  52.         ; install registry editor (if not yet installed)
  53.  
  54.         (if (not (exists "golded:tools"))
  55.  
  56.             (makedir "golded:tools")
  57.         )
  58.  
  59.         (if (not (exists "golded:tools/regedit"))
  60.  
  61.             (makedir "golded:tools/regedit")
  62.         )
  63.  
  64.         (copylib
  65.  
  66.             (prompt "Install registry editor ?")
  67.             (source "bin/regedit" )
  68.             (dest   "golded:tools/regedit")
  69.             (confirm)
  70.             (help @copylib-help)
  71.         )
  72.  
  73.         ; install basic files
  74.  
  75.         (if (not (exists "golded:tools/makeguide"))
  76.  
  77.             (makedir "golded:tools/makeguide")
  78.         )
  79.  
  80.         (copyfiles
  81.  
  82.             (source "makeguide")
  83.             (dest   "golded:tools/makeguide")
  84.             (all)
  85.         )
  86.  
  87.         ; install scanner
  88.  
  89.         (if (not (exists "golded:scanner"))
  90.  
  91.             (makedir "golded:scanner")
  92.         )
  93.  
  94.         (copyfiles
  95.  
  96.             (source "scanner")
  97.             (dest   "golded:scanner")
  98.             (all)
  99.         )
  100.  
  101.         ; install toolbar images
  102.  
  103.         (if (exists "toolbar") (
  104.  
  105.             (set hicolor
  106.  
  107.                 (askchoice
  108.  
  109.                     (prompt "\nSelect toolbar style:\n")
  110.  
  111.                     (choices
  112.  
  113.                         "4  colors"
  114.                         "8+ colors"
  115.                     )
  116.  
  117.                     (default 1)
  118.  
  119.                     (help (cat "\n"
  120.  
  121.                         " You can use both styles on all screens. The 4\n"
  122.                         " color style has been optimized for 4-color   \n"
  123.                         " screens. The 8+ style has been optimized for \n"
  124.                         " screens with eight or more colors.           \n"
  125.                     ))
  126.                 )
  127.             )
  128.  
  129.             (if (not (exists "golded:toolbar"))
  130.  
  131.                 (makedir "golded:toolbar")
  132.             )
  133.  
  134.             (if (not (exists "golded:toolbar/makeguide"))
  135.  
  136.                 (makedir "golded:toolbar/makeguide")
  137.             )
  138.  
  139.             (copyfiles
  140.  
  141.                 (source "toolbar")
  142.                 (dest   "golded:toolbar")
  143.                 (all)
  144.             )
  145.  
  146.             (if (= hicolor 1)
  147.  
  148.                 (copyfiles
  149.  
  150.                     (source "toolbar16")
  151.                     (dest   "golded:toolbar")
  152.                     (nogauge)
  153.                     (all)
  154.                 )
  155.             )
  156.         ))
  157.  
  158.         (if (= @language "deutsch")
  159.  
  160.             (set language 1)
  161.             (set language 0)
  162.         )
  163.  
  164.         (set language (askchoice
  165.  
  166.             (prompt "\nSelect context menu language\n")
  167.  
  168.             (help @askchoice-help)
  169.  
  170.             (choices
  171.  
  172.                 "  English"
  173.                 "  Deutsch"
  174.             )
  175.  
  176.             (default language)
  177.         ))
  178.  
  179.         ; update registry
  180.  
  181.         (working "Updating registry...")
  182.  
  183.         (if (= language 0)
  184.  
  185.             (run "golded:tools/regedit/regedit script=install.bat presets/e/guide.mouse")
  186.             (run "golded:tools/regedit/regedit script=install.bat presets/d/guide.mouse")
  187.         )
  188.     )
  189.  
  190.     (message (cat "\n"
  191.  
  192.         "Please install GoldED before attempting to\n"
  193.         "install this client.                      \n"
  194.     ))
  195. )
  196.  
  197. (exit (quiet))
  198.  
  199. (welcome)
  200.